
 1000  *--------------------------------
 1010  *   GENERATE QUOTIENT-REMAINDER
 1020  *   TABLE FOR ALL POSSIBLE VALUES
 1030  *   OF X/7, WHERE X=0...255
 1040  *--------------------------------
 1050         .MA DO.QS
 1060  R      .SE 0
 1070         >DO.RS
 1080  Q      .SE Q+1
 1090         .DO Q<40
 1100         >DO.QS
 1110         .FIN
 1120         .EM
 1130  *--------------------------------
 1140         .MA DO.RS
 1150         .DA #Q,#R
 1160  R      .SE R+1
 1170         .DO R<7
 1180         >DO.RS
 1190         .FIN
 1200         .EM
 1210  *--------------------------------
 1220  Q      .SE 0
 1230         >DO.QS
 1240  *--------------------------------

